setwd("E:\\1.Ovarian_Treg\\1.picture\\3.2DATA")
#构建数据
ratio <- c(80, 110, 260, 380,422)
disease <- c("GSE14764", "GSE17260","GSE32062","GSE140082","TCGA")
#自定义颜色
colors <-ggsci::pal_npg("nrc")(10)
pie(ratio, labels=disease,
    radius = 1.0,clockwise=T,
    col = colors,
    main = "DATA SET")

A <- data.frame(ratio, disease)#构建一个数据框


library(ggplot2)
library(ggforce)

ggplot()+
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.ticks = element_blank(), 
        axis.text.y = element_blank(),
        axis.text.x = element_blank(),
        legend.title=element_blank(), 
        panel.border = element_blank(),
        panel.background = element_blank())+#去除没用的ggplot背景，坐标轴
  xlab("")+ylab('')+#添加颜色
  scale_fill_manual(values = rev(ggsci::pal_npg("nrc")(10)[-8]))+
  geom_arc_bar(data=A,
               stat = "pie",
               aes(x0=0,y0=0,r0=1,r=2,
                   amount=ratio,fill=disease)
  )
